home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / browser / converttojpeg.browse < prev    next >
Text File  |  2004-08-03  |  846b  |  42 lines
  1. /*
  2.  * ImageFX Browser Script
  3.  *
  4.  * All browser scripts are called as follows:
  5.  *
  6.  *    ScriptName.browse <numfiles> <filelist>
  7.  *
  8.  * Where:
  9.  *
  10.  *    <numfiles>        = Number of files selected (could be 0).
  11.  *    <filelist>        = File containing the list of files selected,
  12.  *                        one file per line, with full pathname.
  13.  *
  14.  * ConvertToJPEG.browse:
  15.  *
  16.  *    Convert selected files to JPEG.
  17.  *
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. PARSE ARG numfiles filelist .
  23.  
  24. IF numfiles > 0 THEN DO
  25.  
  26.    IF OPEN(infile, filelist, 'Read') THEN DO
  27.  
  28.       DO WHILE ~EOF(infile)
  29.          curfile = READLN(infile)
  30.          IF curfile ~= "" THEN DO
  31.             LoadBuffer '"'curfile'"' FORCE
  32.             IF rc = 0 THEN SaveBufferAs JPEG '"'curfile'.JPG"' QUALITY 90
  33.             END
  34.          END
  35.  
  36.       CALL CLOSE(infile)
  37.       KillBuffer FORCE
  38.  
  39.    END
  40.  
  41. EXIT 0
  42.